home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_11061_ValidityCSTR < prev    next >
Text File  |  1994-09-21  |  509b  |  27 lines
  1. global gTTKname,mS
  2. get cd fld "username" in cd 1
  3. if it = "" then
  4. unlock screen
  5. ask tStr("LibMsg",28) && the short name of this stack &&tStr("LibMsg",29)
  6. if it ¡ "" then
  7. put it into cd fld "username" in cd 1
  8. hide menubar
  9. put "false" into mS
  10. get getstr("ReadHelpCSTR")
  11. if it = ""
  12. then
  13.   put the lockmessages into waslocked
  14. LM true
  15.   LS
  16.   push cd
  17.   go stack "the library"
  18.   setstr "ReadHelpCSTR","true"
  19.   pop cd
  20.   US
  21.   LM waslocked
  22. help
  23. end if
  24. else
  25. domenu (the name of the last menuitem of menu 2)
  26. end if
  27. end if